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: GMRGRUT3

Package: General Medical Record - Generator

Routine: GMRGRUT3


Information

GMRGRUT3 ;HIRMFO/RM-GMRG ROUTINE UTILITIES ;9/11/95

Source Information

Source file <GMRGRUT3.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 4 NOW^%DTC  (FILE,YN)^DICN  ^DIE  DT^DIQ  
General Medical Record - Generator 1 DELETE^GMRGED6  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Nursing Service 3 NURCEVE0  NURCPP0  NURCPPS1  
General Medical Record - Generator 2 GMRGED0  GMRGPRNT  

Entry Points

Name Comments DBIA/ICR reference
Q1
STRY ; SET UP GMRGXSEL( AND GMRGXERR( OF 124.3 ENTRIES TO BE SELECTED
Q4 ;
PRTC ; PRINT AN ENTRY FROM FILE 124.3
EN1 ;SELECT PATIENT CARE PLAN
; INPUT: GMRGRT=PRIME DOC IEN^PD TEXT
; DFN=PATIENT IEN
; (optional) GMRGXPRT=$S(1:ALL PLANS E/E OR NOT,0:ONLY ACTIVE)
; _"^"_$S(1:CAN LAYGO NEW PLANS,0:LAYGO NOT ALLOWED)_"^"_
; $S(1:ENTRY IN ERROR OF PLANS ALLOWED,0:E/E NOT ALLOWED)
; DEFAULT VALUE IS "0^1^0"
; OUTPUT: GMRGPDA=ENTRY IN 124.3
; GMRGOUT=$S(1:ABNORMAL EXIT,0:NORMAL EXIT)
NEWCP ; ADD A NEW 124.3 ENTRY
CPCH ; CHOOSE FROM EXISTING 124.3 ENTRIES
DELPL ; ENTER A 124.3 ENTRY IN ERROR
YNNP ; IF NO 124.3 ENTRIES EXIST
EN4 ; PRUNE A SUBTREE FROM SOME PATIENT DATA SET
; GMRGPDA=ENTRY IN FILE 124.3
; GMRGTERM=ENTRY IN FILE 124.2 WHICH IS THE ROOT OF THE SUBTREE
PTDATA ;

External References

Name Field # of Occurrence
NOW^%DTC NEWCP+1
FILE^DICN NEWCP+1
YN^DICN YNNP+3, DELPL+1
^DIE DELPL+3
DT^DIQ PRTC+1
DELETE^GMRGED6 EN4+7, EN4+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"There is no previous "_$P(GMRGRT,"^",2)_" for this patient."
  • Line Location: YNNP+1
Function Call: WRITE
  • Prompt: !?3,$C(7),"Answer Yes or No."
  • Line Location: YNNP+3
Function Call: WRITE
  • Prompt: "that have been entered in error",!
  • Condition for execution: GMRGXREF="GMRGXERR"
  • Line Location: CPCH+1
Function Call: WRITE
  • Prompt: !!,"Enter Selection: "
  • Line Location: CPCH+4
Function Call: READ
  • Timeout: DTIME
  • Variable: GMRGX
  • Line Location: CPCH+5
Function Call: WRITE
  • Prompt: !?3,$C(7),"ENTER THE NUMBER OF THE SELECTION TO BE CHOSEN"
  • Line Location: CPCH+8
Function Call: WRITE
  • Prompt: ",",!?3,"OR THE NUMBER FOLLOWED BY AN '@' TO DELETE A SELECTION"
  • Condition for execution: $P(GMRGXPRT,"^",3)
  • Line Location: CPCH+8
Function Call: WRITE
  • Prompt: ",",!?3,"OR TYPE AN 'E' TO LIST THE PLANS ENTERED IN ERROR"
  • Condition for execution: GMRGXREF'="GMRGXERR"&$P(GMRGXPRT,"^",2) ",",!?3,"OR THE LETTER 'N' TO ADD A NEW ",$P(GMRGRT,"^",2) W:GMRGXREF'="GMRGXERR"&$P(GMRGXPRT,"^")
  • Line Location: CPCH+9
Function Call: WRITE
  • Prompt: "."
  • Line Location: CPCH+9
Function Call: WRITE
  • Prompt: !?3,$C(7),"Select a number in the range 1"_$S(@GMRGXREF>1:"-"_@GMRGXREF,1:"")
  • Line Location: CPCH+10
Function Call: WRITE
  • Prompt: !,$J(GMRGZ,3,0),". "
  • Line Location: PRTC+1
Function Call: WRITE
  • Prompt: ?30,GMRGY
  • Line Location: PRTC+1
Function Call: WRITE
  • Prompt: !,"Let me create a new record..."
  • Line Location: NEWCP+1
Function Call: WRITE
  • Prompt: !?5,$C(7),"Answer Yes to enter this selection in error, else answer No."
  • Line Location: DELPL+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: DELPL+3
Routine Call
  • DIE
  • Line Location:
    • DELPL+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(124.3 - [#124.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(124.3 - [#124.3] EN1+10, PRTC+1, STRY+1, EN4+5, PTDATA+1
^GMRD(124.2 - [#124.2] EN4+5, EN4+6, EN4+8
^VA(200 - [#200] PRTC+1

Label References

Name Line Occurrences
CPCH EN1+12, YNNP+2, CPCH+9, CPCH+10, CPCH+11, CPCH+13
DELPL CPCH+13, DELPL+1
NEWCP YNNP+4, CPCH+12
PRTC CPCH+2
PTDATA EN4+6, EN4+8
Q1 YNNP+2, YNNP+5, CPCH+3, CPCH+6, CPCH+11, CPCH+12, CPCH+13
Q4 EN4+3, EN4+5, EN4+7
STRY EN1+10
YNNP YNNP+3

Naked Globals

Name Field # of Occurrence
^(0 PRTC+1
^(5 STRY+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% YNNP+3*, YNNP+4, Q1!, NEWCP+1, DELPL+1*, DELPL+2
DA Q1!, DELPL+3*
DD NEWCP+1!
>> DFN EN1+9, EN1+10
DIC Q1!, NEWCP+1*
DIC("DR" NEWCP+1*
DIC(0 NEWCP+1*
DIE Q1!, DELPL+3*
DR Q1!, DELPL+3*
DTIME CPCH+2, CPCH+5
GMRGOUT EN1+9*, YNNP+3*, CPCH+2*, CPCH+3, CPCH+6*, CPCH+11, CPCH+13, DELPL+2*, EN4+4~, EN4+6*
>> GMRGPDA EN1+9*, CPCH+11, CPCH+14*, NEWCP+1*, EN4+3, EN4+5, PTDATA+1
GMRGPRC EN4+4~, PTDATA+1*
GMRGPRC(0 PTDATA+1*
GMRGRT EN1+9, EN1+10, YNNP+1, CPCH+1, CPCH+9, NEWCP+1, DELPL+1, EN4+4~, EN4+6*, EN4+7
, EN4+8
GMRGTERM EN4+3, EN4+4~*, EN4+5, EN4+7, EN4+8*, PTDATA+1
GMRGTERM(0 EN4+5*, EN4+8*, PTDATA+1
GMRGX EN1+10*, CPCH+2*, CPCH+5*, CPCH+6, CPCH+7*, CPCH+8, CPCH+10, CPCH+11, CPCH+12, CPCH+13
, CPCH+14, Q1!, NEWCP+1*, DELPL+2*, DELPL+3, STRY+2, STRY+3, EN4+4~, EN4+5*, EN4+6
, PTDATA+1*
GMRGX(0 PTDATA+1*
GMRGXERR EN1+11*, YNNP+2, Q1!
GMRGXERR( STRY+3*
GMRGXPRT EN1+9*, YNNP+2, CPCH+7, CPCH+8, CPCH+9, Q1!, STRY+1
GMRGXREF EN1+11*, CPCH+1, CPCH+2, CPCH+3, CPCH+6, CPCH+7, CPCH+9, CPCH+10, CPCH+11*, CPCH+14
, Q1!, PRTC+1
GMRGXSEL EN1+11*, EN1+12, Q1!
GMRGXSEL( DELPL+3, STRY+2*
GMRGY EN1+10*, Q1!, PRTC+1*, STRY+1, STRY+2, STRY+3
GMRGZ EN1+10*, EN1+11, CPCH+2*, Q1!, PRTC+1, STRY+2*
GMRGZ(0 EN1+10*, EN1+11, STRY+3*
GMRGZZ EN4+4~, EN4+8*
X CPCH+2*, Q1!, NEWCP+1*, STRY+1*, STRY+2, STRY+3, EN4+4*
Y Q1!, PRTC+1*, NEWCP+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