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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: MCPOS02A

Package: Medicine

Routine: MCPOS02A


Information

MCPOS02A ;HIRMFO/DAD-NEW PERSON CONVERSION EXCEPTION REPORT ;6/6/96 14:48

Source Information

Source file <MCPOS02A.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$DT,$$FMTE)^XLFDT  
VA FileMan 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
TASK ;
EXIT ;
PRINT ;
PAUSE ;
HEADER ;

External References

Name Field # of Occurrence
^%ZIS MCPOS02A+4
^%ZISC EXIT+1
^%ZTLOAD MCPOS02A+11
^DIR PAUSE+2
$$DT^XLFDT TASK+1
$$FMTE^XLFDT TASK+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,MCFILE
  • Line Location: TASK+7
Function Call: WRITE
  • Prompt: ?8,MCFLD
  • Line Location: TASK+11
Function Call: WRITE
  • Prompt: !!,"No exceptions found."
  • Line Location: TASK+23
Function Call: WRITE
  • Prompt: ?14,MCD0
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: ?25,MC6,?36,MC16,?47,MC200,?58,MCERROR
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !?15,MC6(0),?50,MC16(0),!!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !?21,"Medicine New Person Exception Report",?68,MCTODAY
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !?68,"Page: ",MCPAGE
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,"File",?8,"Field",?14,"IEN"
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: ?25,"P==>6",?36,"P==>16",?47,"P==>200",?58,"Error Message"
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !?15,"Provider Name",?50,"Person Name",!,MCUNDL,!
  • Line Location: HEADER+7
Routine Call
  • %ZIS
  • Line Location:
    • MCPOS02A+4
Routine Call
  • DIR
  • Line Location:
    • PAUSE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("MCPOS02" TASK+5, TASK+6, TASK+9, TASK+10, TASK+13, TASK+14, EXIT+5!
^XTMP("MC" MCPOS02A+3

Label References

Name Line Occurrences
EXIT MCPOS02A+4, MCPOS02A+5
HEADER TASK+3, PRINT+4
PAUSE PRINT+4
PRINT TASK+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS MCPOS02A+3!*, EXIT+3!
DIR EXIT+3!, PAUSE+2~
DIR(0 PAUSE+2*
DIRUT EXIT+3!
DTOUT EXIT+3!
DUOUT EXIT+3!
IO TASK+3
IO("Q" MCPOS02A+5
IOF HEADER+2
IOP MCPOS02A+3!*
IOSL PRINT+4
IOST PAUSE+1, HEADER+2
MC16 TASK+16*, EXIT+3!, PRINT+2
MC16(0 TASK+16*, PRINT+3
MC200 TASK+17*, EXIT+3!, PRINT+2
MC200(0 TASK+17*
MC6 TASK+15*, EXIT+3!, PRINT+2
MC6(0 TASK+15*, PRINT+3
MCD0 TASK+12*, TASK+13*, TASK+14, EXIT+3!, PRINT+1
MCDATA TASK+14*, TASK+15, TASK+16, TASK+17, TASK+18, EXIT+3!
MCERROR TASK+18*, EXIT+3!, PRINT+2
MCEXIT TASK+1*, TASK+5, TASK+9, TASK+13, EXIT+3!, PAUSE+2*, HEADER+1
MCFILE TASK+4*, TASK+5*, TASK+6, TASK+7, TASK+9, TASK+10, TASK+13, TASK+14, EXIT+4!
MCFLD TASK+8*, TASK+9*, TASK+10, TASK+11, TASK+13, TASK+14, EXIT+4!
MCFOUND TASK+1*, TASK+23, EXIT+4!, PRINT+5*
MCPAGE TASK+1*, EXIT+4!, HEADER+2, HEADER+4*
MCTODAY TASK+1*, EXIT+4!, HEADER+3
MCUNDL TASK+2!*, EXIT+4!, HEADER+7
POP MCPOS02A+4, EXIT+4!
U TASK+6, TASK+10, TASK+15, TASK+16, TASK+17, TASK+18
X TASK+15*, TASK+16*, TASK+17*, EXIT+4!
>> XPDNM EXIT+2
Y EXIT+4!, PAUSE+2
ZTDESC MCPOS02A+6~, MCPOS02A+9*, EXIT+4!
ZTDTH MCPOS02A+6~, MCPOS02A+10*
ZTIO MCPOS02A+6~
>> ZTQUEUED EXIT+2
>> ZTREQ EXIT+2*
ZTRTN MCPOS02A+6~, MCPOS02A+7*, EXIT+4!
ZTSAVE MCPOS02A+6~
ZTSAVE("^TMP(""MCPOS02"",$J," MCPOS02A+8*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All