Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
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)
YNNP ; IF NO 124.3 ENTRIES EXIST
CPCH ; CHOOSE FROM EXISTING 124.3 ENTRIES
Q1
PRTC ; PRINT AN ENTRY FROM FILE 124.3
NEWCP ; ADD A NEW 124.3 ENTRY
DELPL ; ENTER A 124.3 ENTRY IN ERROR
STRY ; SET UP GMRGXSEL( AND GMRGXERR( OF 124.3 ENTRIES TO BE SELECTED
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
Q4 ;
PTDATA ;

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
  • Variable: GMRGX
  • Timeout: DTIME
  • 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(124.3 - [#124.3] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call