Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSGAL5

Package: Inpatient Medications

Routine: PSGAL5


Information

PSGAL5 ;BIR/CML3 - ACTIVITY LOGGER ;22 Jan 99 / 8:00 AM

Source Information

Source file <PSGAL5.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 2 NOW^%DTC  FIELD^DID  
Inpatient Medications 1 ($$DIFFOPI,$$DIFFSI)^PSJBCMA5  

Caller Graph

Caller Graph Total: 50

Package Total Caller Graph
Inpatient Medications 38 PSGOE92  PSGOEC  PSGOECS  PSGOEE  PSGOEF1  PSGOEH0  PSGOEH1  PSGOENG  
PSGOER  PSGOERI  PSGOERS  PSGOETO  PSGOEV  PSGOTR  PSIVOPT1  PSIVORC2  
PSJADT0  PSJBCMA2  PSJBCMA4  PSJCLOR2  PSJCOM  PSJCOMR  PSJHL5  PSJHL6  
PSJHL7  PSJHLV  PSJOERI  PSJOREN  PSJXR514  PSJXR515  PSJXR517  PSJXR518  
PSJXR519  PSJXR54  PSJXR55  PSJXR57  PSJXR58  PSJXR59  
Pharmacy Data Management 12 ACTIVITY LOG  DISPENSE DRUG  DISPENSE LOG  PSSJXR12  PSSJXR13  PSSJXR14  PSSJXR28  PSSJXR32  
PSSJXR33  PSSJXR34  PSSJXR8  UNIT DOSE  

Entry Points

Name Comments DBIA/ICR reference
EN ;
COMPSI() ; Compare old Special Instructions (long) to new Special Instructions (long)
NEWNVAL(PSGALORD,PSGALC,PSGFLD,PSGOLD,PSGOLDAR)
KILLNV
DONE ;
KILL ; if user merely reenters same data (tsk, tsk), kill record just written
NEWUDAL(PSGALGP,PSGALORD,PSGALC,PSGFLD,PSGOLD,PSGOLDAR)
PNTR ; find pointer value

External References

Name Field # of Occurrence
NOW^%DTC EN+8, NEWUDAL+12, NEWNVAL+13
FIELD^DID EN+5, EN+6, PNTR+1
$$DIFFOPI^PSJBCMA5 NEWNVAL+20
$$DIFFSI^PSJBCMA5 EN+11, NEWUDAL+17, NEWNVAL+19

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( EN+6, EN+9
^PS(53.1 - [#53.1] NEWNVAL+11, NEWNVAL+17*, NEWNVAL+21*, NEWNVAL+22*, KILLNV+1!
^PS(53.45 - [#53.45] EN+12, COMPSI+3, NEWUDAL+21, NEWUDAL+22, NEWUDAL+23*
^PS(55 - [#55] EN+7, EN+10*, EN+13*, EN+14*, EN+15, EN+16*, KILL+2!, COMPSI+2, COMPSI+3, NEWUDAL+10
, NEWUDAL+16*, NEWUDAL+18*, NEWUDAL+20*, NEWUDAL+22*

Label References

Name Line Occurrences
$$COMPSI KILL+1
PNTR EN+5

Naked Globals

Name Field # of Occurrence
^( EN+7, NEWUDAL+10, NEWNVAL+11
^(0 EN+7*, EN+9, NEWUDAL+10*, NEWNVAL+11*
^(1 NEWNVAL+21*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+8, EN+9, DONE+1, NEWUDAL+12, NEWUDAL+14, NEWNVAL+13, NEWNVAL+15
>> DA EN+2
>> DA( EN+1, EN+2
>> DFN NEWNVAL+19, NEWNVAL+20
DIFF COMPSI+1~, COMPSI+2*, COMPSI+3*, COMPSI+4
DUZ EN+9, COMPSI+1, COMPSI+3, NEWUDAL+14, NEWNVAL+15
FLD EN+5*, EN+6, EN+9, DONE+1!
FN EN+5*, EN+6, EN+9, DONE+1!
LN EN+15~*, EN+16, NEWUDAL+19~*, NEWUDAL+20, NEWUDAL+21~*, NEWUDAL+22, NEWNVAL+22~*
LNCNT NEWNVAL+21~*
OLD EN+5*, EN+6*, EN+9, DONE+1!, PNTR+1*
OLDS EN+6*, DONE+1!
>> PSGAL("C" EN+3*, EN+4*, EN+5, EN+6, EN+9, EN+10, KILL+2, KILLNV+1
>> PSGAL("D" DONE+1*
>> PSGAL("D0" EN+2*, EN+7, EN+10, EN+11, EN+13, EN+14, EN+15, EN+16, KILL+2, COMPSI+2
, COMPSI+3, KILLNV+1
>> PSGAL("D1" EN+2*, EN+7, EN+10, EN+11, EN+13, EN+14, EN+15, EN+16, KILL+2, COMPSI+2
, COMPSI+3
>> PSGAL("N" EN+7*, EN+10, EN+13, EN+14, EN+16, KILL+2, NEWUDAL+10*, NEWUDAL+16, NEWUDAL+18, NEWUDAL+20
, NEWUDAL+22, NEWNVAL+11*, NEWNVAL+17, NEWNVAL+21, NEWNVAL+22, KILLNV+1
PSGALC NEWUDAL~, NEWUDAL+14, NEWNVAL~, NEWNVAL+15
>> PSGALEF EN+10*, KILL+2*, KILLNV+1*
PSGALFF EN+5, DONE+1!
PSGALFN EN+5, DONE+1!
PSGALGP NEWUDAL~, NEWUDAL+9, NEWUDAL+10, NEWUDAL+16, NEWUDAL+17, NEWUDAL+18, NEWUDAL+20, NEWUDAL+22
>> PSGALO EN+3
PSGALORD NEWUDAL~, NEWUDAL+10, NEWUDAL+16, NEWUDAL+17, NEWUDAL+18, NEWUDAL+20, NEWUDAL+22, NEWNVAL~, NEWNVAL+11, NEWNVAL+17
, NEWNVAL+19, NEWNVAL+20, NEWNVAL+21, NEWNVAL+22
>> PSGALR EN+4
>> PSGDT EN+8*, NEWUDAL+12*, NEWNVAL+13*
PSGFLD NEWUDAL~, NEWUDAL+14, NEWNVAL~, NEWNVAL+15
PSGOLD NEWUDAL~, NEWUDAL+13*, NEWUDAL+14, NEWNVAL~, NEWNVAL+14*, NEWNVAL+15
PSGOLDAR NEWUDAL~, NEWUDAL+17, NEWNVAL~, NEWNVAL+18
PSGOLDAR( NEWUDAL+19, NEWUDAL+20, NEWNVAL+22
PSGOLDAR("" NEWNVAL+21
PSGOLDAR(0 NEWUDAL+18
PSJ9 EN+1~
PSJ9("SPECIFIER" EN+5, EN+6
PSJ99 EN+1~
PSJ99("POINTER" PNTR+1
PSJ99("SPECIFIER" PNTR+1
>> PSJSYSP EN+12, NEWUDAL+21, NEWUDAL+22, NEWUDAL+23
>> Q EN+1*, EN+2, EN+7*, EN+9*, EN+10, EN+11, EN+13, KILL+1, NEWUDAL+10*, NEWUDAL+14*
, NEWUDAL+16, NEWNVAL+11*, NEWNVAL+15*, NEWNVAL+17, NEWNVAL+18, NEWNVAL+19, NEWNVAL+20
Q2 COMPSI+1~, COMPSI+2*, COMPSI+3
>> QQ EN+7*, NEWUDAL+10*, NEWNVAL+11*
SS DONE+1!, PNTR+1*
>> X EN+5
XX EN+5*, DONE+1!, PNTR+1*
YY EN+5*, DONE+1!, PNTR+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All