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
Print Page as PDF
Routine: SDAMBMR2

Package: Scheduling

Routine: SDAMBMR2


Information

SDAMBMR2 ;ALB/MLI - PRINT AMBULATORY PROCEDURES MANAGEMENT REPORTS ; 4/27/00 12:14pm

Source Information

Source file <SDAMBMR2.m>

Entry Points

Name Comments DBIA/ICR reference
HD
DT
1
2
3
CONT
PN
PNAME
CD
HD2
HD3
SET
T
C
C2
LIST
TOT
N

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?20,"AMBULATORY PROCEDURE MANAGEMENT REPORTS",!!,"DATE RANGE: ",SDB,"-",SDE,?50,"DATE PRINTED: ",SDNOW,!,$S(SDFL:SDSTR_" NAME:",1:"ALL "_SDSTR_"S"),?16,SDT,?71,"PAGE: ",$J(SDPG,3)
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: !,?8,$E(K,1,18),?28,$P(SDINFO,U,10),?39,"AGE: ",$J($P(SDINFO,U,2),3),?49,$S($P(SDINFO,U)=1:"VETERAN",1:"NON-VET"),?58,$P(SDINFO,U,3),?61
  • Line Location: PNAME+1
Function Call: WRITE
  • Prompt: VADATE("E")
  • Line Location: PNAME+1
Function Call: WRITE
  • Prompt: !!,$G(KK)
  • Line Location: CD+5
Function Call: WRITE
  • Prompt: ?7,$E(SDN,1,72)
  • Line Location: CD+6
Function Call: WRITE
  • Prompt: !?2,MODCODE,?8,$E(MODTEXT,1,65)
  • Line Location: CD+16
Function Call: WRITE
  • Prompt: !
  • Line Location: CD+18
Function Call: READ
  • Formatting: !?20
  • Prompt: "Enter <RETURN> to continue"
  • Variable: SDFG1
  • Timeout: DTIME
  • Line Location: HD2+0
Function Call: WRITE
  • Prompt: !!?25,"SUMMARY OF PROCEDURES PERFORMED",!
  • Line Location: HD2+1
Function Call: WRITE
  • Prompt: Y
  • Line Location: HD2+1
Function Call: READ
  • Formatting: !?20
  • Prompt: "Enter <RETURN> to continue"
  • Variable: SDFG1
  • Timeout: DTIME
  • Line Location: HD3+0
Function Call: WRITE
  • Prompt: !!?31,"SUMMARY BY PATIENT",!,"NAME",?27,"SSN",?38,"AGE",?43,"VET/NON",?53,"SEX",?60,"DATE/TIME OF STOP",!
  • Line Location: HD3+1
Function Call: WRITE
  • Prompt: Y
  • Line Location: HD3+1
Function Call: WRITE
  • Prompt: !?8,"TOTAL PROCEDURES==>",?30,"VETERAN:",?39,$J($S($D(^TMP($J,"*PRO",I,J,1)):$P(^(1),"^",1),1:0),4),?47,"NON-VETERAN:",$J($S($D(^(0)):$P(^(0),"^",1),1:0),4)
  • Line Location: T+0
Function Call: WRITE
  • Prompt: !!,$E(J,1,24),?27,$P(SDINFO,U,10)
  • Line Location: C2+0
Function Call: WRITE
  • Prompt: ?38,$P(SDINFO,U),?43,$S(L=1:"VETERAN",1:"NON-VET"),?52,$S($P(SDINFO,U,2)="M":" MALE",1:"FEMALE"),?60
  • Line Location: C2+1
Function Call: WRITE
  • Prompt: VADATE("E")
  • Line Location: C2+1
Function Call: WRITE
  • Prompt: !?5,$P($$CPT^ICPTCOD(SDPRO,ICPTVDT),U,2)
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: ?12,$E(SDN,1,67)
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: !?7,MODCODE,?13,$E(MODTEXT,1,65)
  • Line Location: LIST+14
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+16
Info |  Source |  Entry Points |  Interaction Calls