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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSGOD

Package: Inpatient Medications

Routine: PSGOD


Information

PSGOD ;BIR/CML3 - CREATES NEW ORDER FROM OLD ONE ;12 June 2019 09:31:53

Source Information

Source file <PSGOD.m>

Call Graph

Call Graph

Call Graph Total: 27

Package Total Call Graph
Inpatient Medications 18 ($$ENDD,$$ENDTC,$$ENNPN)^PSGMI  ^PSGNE3  ^PSGOE1  $$GTNEDFD^PSGOE7  ENSFE^PSGOEE0  ^PSGOETO  CHK^PSGOEV  EN^PSGPEN  
ENOS^PSGS0  ENDDC^PSGSICHK  ($$ISCLOZ,ORD,PSJFILE,TDD)^PSJCLOZ  GETUD^PSJLMGUD  INIT^PSJLMUDE  $$OINAME^PSJLMUTL  $$CHKSCHD^PSJMISC2  SETOC^PSJNEWOC  
IN^PSJOCDS  $$ENNOO^PSJUTL5  
VA FileMan 5 $$FIND1^DIC  YN^DICN  ^DIE  $$GET1^DIQ  ^DIR  
List Manager 2 EN^VALM  (FULL,PAUSE)^VALM1  
Mental Health 1 INPSND^YSCLTST5  
Registration 1 INP^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Inpatient Medications 2 PSGOE1  PSJOE  

Entry Points

Name Comments DBIA/ICR reference
ORIG ;Redisplay original order
DONE ;
CH ;
WH ;
OC ;Perform order checks

External References

Name Field # of Occurrence
$$FIND1^DIC PSGOD+14
YN^DICN PSGOD+21
^DIE PSGOD+75
$$GET1^DIQ PSGOD+13, PSGOD+19
^DIR PSGOD+63, PSGOD+85
$$ENDD^PSGMI PSGOD+55, PSGOD+56
$$ENDTC^PSGMI PSGOD+55, PSGOD+56
$$ENNPN^PSGMI PSGOD+56
^PSGNE3 PSGOD+53
^PSGOE1 PSGOD+80
$$GTNEDFD^PSGOE7 PSGOD+52
ENSFE^PSGOEE0 PSGOD+80
^PSGOETO PSGOD+69
CHK^PSGOEV PSGOD+57
EN^PSGPEN PSGOD+70
ENOS^PSGS0 PSGOD+59
ENDDC^PSGSICHK OC+15
$$ISCLOZ^PSJCLOZ PSGOD+11
ORD^PSJCLOZ OC+17
PSJFILE^PSJCLOZ PSGOD+77
TDD^PSJCLOZ OC+10
GETUD^PSJLMGUD PSGOD+80, ORIG+1
INIT^PSJLMUDE ORIG+1
$$OINAME^PSJLMUTL PSGOD+55
$$CHKSCHD^PSJMISC2 PSGOD+50
SETOC^PSJNEWOC PSGOD+79, PSGOD+82
IN^PSJOCDS OC+16
$$ENNOO^PSJUTL5 PSGOD+66
INP^VADPT PSGOD+6
EN^VALM PSGOD+65, PSGOD+80
FULL^VALM1 OC+8, OC+14
PAUSE^VALM1 PSGOD+18, PSGOD+50, PSGOD+67
INPSND^YSCLTST5 PSGOD+77

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You cannot copy Unit Dose orders for this patient!"
  • Line Location: PSGOD+6
Function Call: WRITE
  • Prompt: !!,"Do you want to copy this order"
  • Line Location: PSGOD+21
Function Call: WRITE
  • Prompt: !!,"...copying..."
  • Line Location: PSGOD+24
Function Call: WRITE
  • Prompt: !!,"Order not copied."
  • Line Location: PSGOD+50
Function Call: WRITE
  • Prompt: "."
  • Line Location: PSGOD+53
Function Call: WRITE
  • Prompt: "."
  • Line Location: PSGOD+57
Function Call: WRITE
  • Prompt: !!,"You are finished with the new order.",!,"The following ACTION prompt is for the original order."
  • Line Location: PSGOD+84
Function Call: WRITE
  • Prompt: !!?2,"Answer 'YES' to have a new, non-verified order created for this patient,",!,"using the information from this order. (The START and STOP dates will be",!,"recalculated.) Enter 'NO' (or '^') to stop now."
  • Line Location: CH+1
Function Call: WRITE
  • Prompt: !!?2,"Answer 'YES' to take action on this new order. Enter 'NO' (or '^') to return",!,"to the original order now."
  • Line Location: WH+1
Routine Call
  • DIC
  • Line Location:
    • PSGOD+14
Routine Call
  • DIE
  • Line Location:
    • PSGOD+75
Routine Call
  • DIR
  • Line Location:
    • PSGOD+63
    • PSGOD+85
Routine Call
  • VALM
  • Line Location:
    • PSGOD+65
    • PSGOD+80

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(55 - [#55] GET1^DIQ
^YSCL(603.01 - [#603.01] FIND1^DIC,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.1 - [#53.1] PSGOD+82
^PS(53.45 - [#53.45] PSGOD+36*, PSGOD+38*, PSGOD+43*, PSGOD+44*!, PSGOD+45!, DONE+1!, OC+3, OC+4
^PS(55 - [#55] PSGOD+7, PSGOD+28
^TMP($J PSGOD+74!, PSGOD+75, PSGOD+77!

Label References

Name Line Occurrences
CH PSGOD+21
DONE PSGOD+10, PSGOD+22
OC PSGOD+66
ORIG PSGOD+50, PSGOD+67

Naked Globals

Name Field # of Occurrence
^( PSGOD+36, PSGOD+42
^(0 PSGOD+36, PSGOD+43, PSGOD+44

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PSGOD+21*, PSGOD+22, DONE+1!
%H DONE+1!
%I DONE+1!
>> ANQX PSGOD+10, PSGOD+18*, OC+10*
>> CHK PSGOD+59*, PSGOD+62*
CLOZFLG PSGOD+10~, PSGOD+11*, PSGOD+73, PSGOD+76, OC+10
CLOZNUM PSGOD+12~, PSGOD+13*, PSGOD+14
>> CLOZPAT PSGOD+19*
CLOZUID PSGOD+12~, PSGOD+14*, PSGOD+15, PSGOD+19
DA PSGOD+75*, DONE+1!
DA(1 PSGOD+75*
>> DFN PSGOD+13, PSGOD+74, PSGOD+75, PSGOD+77
>> DIE PSGOD+75*
DIR PSGOD+63!, PSGOD+85!
DIR("A" PSGOD+63*
DIR(0 PSGOD+63*, PSGOD+85*
>> DR PSGOD+75*
DUZ PSGOD+56
F PSGOD+29*, PSGOD+36, PSGOD+42, DONE+1!
N PSGOD+29*, DONE+1!
>> ND PSGOD+42*, PSGOD+43, PSGOD+44, PSGOD+45
OLDON PSGOD+24~, PSGOD+28*, PSGOD+84, ORIG+1
>> PSGAT PSGOD+56*, PSGOD+60*, PSGOD+61
>> PSGCANFL PSGOD+84*
>> PSGCOPY PSGOD+72
PSGDN PSGOD+76~*
PSGDO PSGOD+31*, PSGOD+57, DONE+2!
>> PSGDT PSGOD+56
>> PSGDUR PSGOD+33*
>> PSGEBN PSGOD+56*
>> PSGEDT PSGOD+72
PSGEFN PSGOD+54!*
PSGEFN( PSGOD+54*
>> PSGFD PSGOD+64*, PSGOD+68
>> PSGFDN PSGOD+55*
PSGHSM PSGOD+30*, DONE+2!
PSGK5345 PSGOD+41~*, PSGOD+43, PSGOD+44*, PSGOD+45*, PSGOD+46!
>> PSGLIN PSGOD+56*
PSGMR PSGOD+30*, PSGOD+57, DONE+2!
PSGNEDFD PSGOD+52*, DONE+2!
PSGNEFD PSGOD+55, PSGOD+57, PSGOD+64, PSGOD+68*, DONE+2!
PSGNESD PSGOD+47*, PSGOD+55, PSGOD+57, PSGOD+64, PSGOD+68*, DONE+1!
PSGODF PSGOD+52*, DONE+1!
PSGODN PSGOD+29!, DONE+1!
PSGODN( PSGOD+29*, PSGOD+31, PSGOD+33
PSGODN(0 PSGOD+30
PSGODN(1 PSGOD+42*, PSGOD+43*, PSGOD+44*, PSGOD+45*
PSGODN(2 PSGOD+47
PSGODN(3 PSGOD+36*, PSGOD+38
PSGODN(6 PSGOD+34
>> PSGOEAV PSGOD+56, PSGOD+69
PSGOEE PSGOD+54!, PSGOD+69!, PSGOD+70
PSGOEEF PSGOD+54!, PSGOD+80~*
PSGOEOS PSGOD+54!
>> PSGOEPR PSGOD+28*
>> PSGOINST PSGOD+55*
>> PSGORD PSGOD+28, PSGOD+29, PSGOD+69, PSGOD+70, PSGOD+79, PSGOD+80, PSGOD+82, PSGOD+84*, OC+16
PSGORQF PSGOD+25!, PSGOD+66, OC+11, OC+15, OC+16
>> PSGP PSGOD+7, PSGOD+11, PSGOD+28, PSGOD+29, PSGOD+80, ORIG+1, OC+15
>> PSGPDN PSGOD+55*
PSGPDRG PSGOD+26~, PSGOD+31*, PSGOD+52, PSGOD+55, PSGOD+57, DONE+2!
PSGPR PSGOD+30*, DONE+2!
>> PSGRF PSGOD+33*
>> PSGRMV PSGOD+33*
>> PSGRMVT PSGOD+33*
PSGS0XT PSGOD+47*, PSGOD+62, DONE+1!
PSGS0Y PSGOD+47*, PSGOD+56, PSGOD+60, PSGOD+61*, PSGOD+62, DONE+1!
PSGSCH PSGOD+47*, PSGOD+49, PSGOD+51*, PSGOD+52, PSGOD+57, PSGOD+58, PSGOD+59, DONE+2!
>> PSGSD PSGOD+64*, PSGOD+68
>> PSGSDN PSGOD+55*
>> PSGSI PSGOD+34*
PSGSM PSGOD+30*, DONE+2!
PSGST PSGOD+30*, PSGOD+52, PSGOD+57, DONE+2!
>> PSGSTAT PSGOD+56*
PSGTOL DONE+1!
PSGTOO DONE+1!
PSGUOW DONE+1!
PSJACEPT PSGOD+65!, PSGOD+66*, PSGOD+67
PSJALLGY OC+1~
PSJALLGY( OC+5*
PSJALLGY(0 OC+7, OC+13
>> PSJCOFLG PSGOD+67
PSJDD OC+1~, OC+4*, OC+5, OC+7*, OC+13*, OC+15, OC+16
>> PSJNOO PSGOD+66*, PSGOD+67
PSJNSS PSGOD+59!, PSGOD+62!
>> PSJOCFG PSGOD+82
PSJOLDNM PSGOD+27~, PSGOD+50!, PSGOD+51!
PSJOLDNM("NEW_SCHD" PSGOD+51
PSJOLDNM("ORD_SCHD" PSGOD+49*
>> PSJORD PSGOD+7, PSGOD+11, PSGOD+69*, PSGOD+74, PSGOD+75, PSGOD+84*
>> PSJSYSP PSGOD+36, PSGOD+38, PSGOD+43, PSGOD+44, PSGOD+45, DONE+1, OC+3, OC+4
>> PSJSYSU PSGOD+70
Q PSGOD+26~, PSGOD+28*, PSGOD+36*, PSGOD+42*
QX PSGOD+59~
SDW PSGOD+59~
SWD PSGOD+59~
U PSGOD+33, PSGOD+47, PSGOD+52, PSGOD+55, PSGOD+56, PSGOD+57, PSGOD+76, PSGOD+82
>> VAIN(4 PSGOD+6
>> VALMBCK PSGOD+65*, PSGOD+66*
X PSGOD+54*, PSGOD+59~*, DONE+1!, OC+1~, OC+3*, OC+4
XABB PSGOD+59~
Y PSGOD+65, DONE+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All